home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctjoc85.arc / WORDC.PAS < prev   
Pascal/Delphi Source File  |  1984-12-02  |  719b  |  36 lines
  1. { WORDC -- Counts the number of words in a file }
  2.  
  3. PROGRAM wordc(in_file,output) ;
  4.  
  5.   CONST
  6.     tab = 9 ;
  7.     lf = 10 ;
  8.     cr = 13 ;
  9.  
  10.   VAR
  11.     in_file,out_file : text ;
  12.     count : integer ;
  13.     input_char : char ;
  14.     inword : boolean ;
  15.  
  16.   BEGIN {wordc}
  17.     reset(in_file) ;
  18.     count := 0 ;
  19.     inword := false ;
  20.     WHILE NOT eof(in_file) DO
  21.       BEGIN
  22.     read(in_file,input_char) ;
  23.     IF (input_char=' ') OR
  24.        (input_char=chr(tab)) OR
  25.        (input_char=chr(cr)) OR
  26.        (input_char=chr(lf)) THEN
  27.       inword := false
  28.     ELSE IF ( NOT inword) THEN
  29.       BEGIN
  30.         inword := true ;
  31.         count := count + 1 ;
  32.       END ;
  33.       END ; {while}
  34.     writeln('word count = ',count) ;
  35.   END. {wordc}
  36.